home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / frmcover.frm < prev    next >
Text File  |  1999-06-24  |  20KB  |  714 lines
  1. VERSION 5.00
  2. Object = "{D2D9B7C1-7650-11D1-9481-00A0247B7657}#1.0#0"; "ZLIBOCX2.DLL"
  3. Begin VB.Form frmCover 
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00000000&
  6.    BorderStyle     =   0  'None
  7.    Caption         =   "4000 A.D."
  8.    ClientHeight    =   7290
  9.    ClientLeft      =   510
  10.    ClientTop       =   810
  11.    ClientWidth     =   9585
  12.    ControlBox      =   0   'False
  13.    BeginProperty Font 
  14.       Name            =   "MS Sans Serif"
  15.       Size            =   8.25
  16.       Charset         =   0
  17.       Weight          =   400
  18.       Underline       =   0   'False
  19.       Italic          =   -1  'True
  20.       Strikethrough   =   0   'False
  21.    EndProperty
  22.    ForeColor       =   &H00000000&
  23.    HelpContextID   =   30
  24.    Icon            =   "frmcover.frx":0000
  25.    LinkTopic       =   "Form1"
  26.    MaxButton       =   0   'False
  27.    MinButton       =   0   'False
  28.    PaletteMode     =   1  'UseZOrder
  29.    ScaleHeight     =   7290
  30.    ScaleWidth      =   9585
  31.    WindowState     =   2  'Maximized
  32.    Begin ZLIBOCX2LibCtl.zlibIF zlibTester 
  33.       Height          =   375
  34.       Left            =   1935
  35.       OleObjectBlob   =   "frmcover.frx":030A
  36.       TabIndex        =   7
  37.       Top             =   5535
  38.       Visible         =   0   'False
  39.       Width           =   1500
  40.    End
  41.    Begin VB.PictureBox picStarfield2 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       BorderStyle     =   0  'None
  45.       ForeColor       =   &H80000008&
  46.       Height          =   2265
  47.       Left            =   9015
  48.       ScaleHeight     =   2265
  49.       ScaleWidth      =   2760
  50.       TabIndex        =   5
  51.       Top             =   5505
  52.       Visible         =   0   'False
  53.       Width           =   2760
  54.    End
  55.    Begin VB.PictureBox picStarfield1 
  56.       Appearance      =   0  'Flat
  57.       BackColor       =   &H80000005&
  58.       BorderStyle     =   0  'None
  59.       ForeColor       =   &H80000008&
  60.       Height          =   1620
  61.       Left            =   9120
  62.       Picture         =   "frmcover.frx":0342
  63.       ScaleHeight     =   1620
  64.       ScaleWidth      =   2730
  65.       TabIndex        =   6
  66.       Top             =   3390
  67.       Visible         =   0   'False
  68.       Width           =   2730
  69.    End
  70.    Begin VB.Timer tmrOptions 
  71.       Interval        =   500
  72.       Left            =   375
  73.       Top             =   6090
  74.    End
  75.    Begin VB.Label lblVersionNumber 
  76.       BackColor       =   &H00000000&
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "Version 2.5"
  79.       BeginProperty Font 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   12
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       ForeColor       =   &H000000C0&
  89.       Height          =   465
  90.       Left            =   7515
  91.       TabIndex        =   8
  92.       Top             =   3330
  93.       Width           =   1545
  94.    End
  95.    Begin VB.Image imgTitle 
  96.       Appearance      =   0  'Flat
  97.       Height          =   1800
  98.       Left            =   585
  99.       Picture         =   "frmcover.frx":18EC4
  100.       Stretch         =   -1  'True
  101.       Top             =   1335
  102.       Width           =   8415
  103.    End
  104.    Begin VB.Shape Shape1 
  105.       BorderColor     =   &H000000C0&
  106.       Height          =   270
  107.       Left            =   3750
  108.       Shape           =   3  'Circle
  109.       Top             =   6570
  110.       Width           =   300
  111.    End
  112.    Begin VB.Label lblChoice 
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "F3  Quit "
  115.       BeginProperty Font 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   12
  118.          Charset         =   0
  119.          Weight          =   700
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       ForeColor       =   &H000000FF&
  125.       Height          =   300
  126.       Index           =   2
  127.       Left            =   5205
  128.       TabIndex        =   2
  129.       Top             =   5460
  130.       Visible         =   0   'False
  131.       Width           =   1065
  132.    End
  133.    Begin VB.Label lblChoice 
  134.       BackStyle       =   0  'Transparent
  135.       Caption         =   "F2  Load A Game In Progress"
  136.       BeginProperty Font 
  137.          Name            =   "MS Sans Serif"
  138.          Size            =   12
  139.          Charset         =   0
  140.          Weight          =   700
  141.          Underline       =   0   'False
  142.          Italic          =   0   'False
  143.          Strikethrough   =   0   'False
  144.       EndProperty
  145.       ForeColor       =   &H000000FF&
  146.       Height          =   330
  147.       Index           =   1
  148.       Left            =   5205
  149.       TabIndex        =   1
  150.       Top             =   5010
  151.       Visible         =   0   'False
  152.       Width           =   3675
  153.    End
  154.    Begin VB.Label lblChoice 
  155.       BackStyle       =   0  'Transparent
  156.       Caption         =   "F1  Start A New Game"
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   12
  160.          Charset         =   0
  161.          Weight          =   700
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       ForeColor       =   &H000000FF&
  167.       Height          =   315
  168.       Index           =   0
  169.       Left            =   5220
  170.       TabIndex        =   0
  171.       Top             =   4590
  172.       Visible         =   0   'False
  173.       Width           =   2730
  174.    End
  175.    Begin VB.Label lblCopyright2 
  176.       BackColor       =   &H00000000&
  177.       BackStyle       =   0  'Transparent
  178.       Caption         =   "1998-99, Gordon Stewart"
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   -1  'True
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       ForeColor       =   &H000000C0&
  189.       Height          =   270
  190.       Left            =   4095
  191.       TabIndex        =   4
  192.       Top             =   6600
  193.       Width           =   2280
  194.    End
  195.    Begin VB.Label lblCopyright1 
  196.       BackColor       =   &H00000000&
  197.       BackStyle       =   0  'Transparent
  198.       Caption         =   "C"
  199.       BeginProperty Font 
  200.          Name            =   "MS Sans Serif"
  201.          Size            =   9.75
  202.          Charset         =   0
  203.          Weight          =   400
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       ForeColor       =   &H000000C0&
  209.       Height          =   240
  210.       Left            =   3810
  211.       TabIndex        =   3
  212.       Top             =   6585
  213.       Width           =   225
  214.    End
  215. End
  216. Attribute VB_Name = "frmCover"
  217. Attribute VB_GlobalNameSpace = False
  218. Attribute VB_Creatable = False
  219. Attribute VB_PredeclaredId = True
  220. Attribute VB_Exposed = False
  221. Option Explicit
  222.  
  223. Dim blue, red
  224. Public StarsDrawn As Boolean
  225.  
  226.  
  227.  
  228. Private Sub Form_Activate()
  229. Randomize
  230.  
  231. If StarsDrawn = False Then
  232.     'draw white stars on the screen
  233.     Dim a, X, Y
  234.     For a = 1 To 600
  235.         X = Int(Rnd * frmCover.ScaleWidth)
  236.         Y = Int(Rnd * frmCover.ScaleHeight)
  237.         frmCover.PSet (X, Y), vbWhite
  238.     Next a
  239.  
  240.     'draw darker stars
  241.     Dim grey
  242.     grey = &H808080
  243.     For a = 1 To 800
  244.        X = Int(Rnd * frmCover.ScaleWidth)
  245.        Y = Int(Rnd * frmCover.ScaleHeight)
  246.        frmCover.PSet (X, Y), grey
  247.     Next a
  248.        
  249.     'draw some blue stars
  250.     Dim blue
  251.     blue = &H800000
  252.     For a = 1 To 600
  253.        X = Int(Rnd * frmCover.ScaleWidth)
  254.        Y = Int(Rnd * frmCover.ScaleHeight)
  255.        frmCover.PSet (X, Y), blue
  256.     Next a
  257.         
  258.     StarsDrawn = True   'prevent screen being redrawn later, if user chooses to continue game
  259. End If
  260.  
  261.  
  262.  
  263.  
  264. End Sub
  265.  
  266. Pri